home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO018.dsk / WORMS.bas < prev   
BASIC Source File  |  2012-02-16  |  1KB  |  38 lines
  1. 100  REM A TRENDY SLOGAN ...
  2. 110 D$ =  CHR$(4)
  3. 120  TEXT : HOME : HGR 
  4. 130  DIM P$(4): GOSUB 420
  5. 140  PRINT D$;"BLOAD APPLE"
  6. 150  PRINT D$;"BLOAD CHAR.SET"
  7. 160  PRINT D$;"BLOAD CHAR.WORM"
  8. 170  PRINT D$;"BLOAD CHAR.GEN"
  9. 176  CALL 25600: REM CHAR.GEN
  10. 180  POKE 973,1: PRINT  CHR$(12)
  11. 190  FOR I = 10 TO 36
  12. 200  GOSUB 350
  13. 210  NEXT 
  14. 220  FOR I = 1 TO 2
  15. 230  VTAB 12: HTAB 36 +I
  16. 240  PRINT P$(I)
  17. 250  FOR J = 1 TO 300: NEXT 
  18. 260  VTAB 12: HTAB 36 +I
  19. 270  PRINT P$(I +2)
  20. 280  FOR J = 1 TO 300: NEXT : NEXT 
  21. 290  VTAB 16
  22. 300  PRINT "<CTRL-O><CTRL-S>THE <CTRL-Z>WORMS <CTRL-O>GO OUT,": PRINT 
  23. 310  PRINT "    <CTRL-S>BEFORE THE NAME GOES ON.<CTRL-Z>"
  24. 320  POKE 49168,0
  25. 330  FOR I = 1 TO 1000: IF  PEEK(49152) <128  THEN  NEXT : GOTO 180
  26. 340  POKE 49168,0: PRINT D$"PR#0": PRINT D$"-STARTUP"
  27. 350  VTAB 12: HTAB I
  28. 360  PRINT "<CTRL-Q> ABC<CTRL-Z>"
  29. 370  FOR J = 1 TO 300: NEXT 
  30. 380  VTAB 12: HTAB I
  31. 390  PRINT "<CTRL-Q> EDC<CTRL-Z>"
  32. 400  FOR J = 1 TO 300: NEXT 
  33. 410  RETURN 
  34. 420 P$(1) = "<CTRL-Q> AB<CTRL-Z>"
  35. 430 P$(2) = "<CTRL-Q> A<CTRL-Z>"
  36. 440 P$(3) = "<CTRL-Q> ED<CTRL-Z>"
  37. 450 P$(4) = "<CTRL-Q>  <CTRL-Z>"
  38. 460  RETURN